www.gusucode.com > 云枫工作室企业网站源码 1 > 云枫工作室企业网站源码 1.0/云枫工作室企业网站源码(asp无限制版)1.0/web/admin/page.asp

    <%if pagecount > 0 then                                           
    response.write("<table width=100% align=center><tr><td align=center>")
    response.write("页次：<font color=red><b>" & page & "</font>/" & pagecount & "</b>&nbsp;&nbsp;每页<b>" & pagesize & "</b>条&nbsp;&nbsp;共<b>" & recordcount & "</b>条&nbsp;&nbsp;分页：")
    Spage = page mod PARTSIZE
    if page > PARTSIZE then
        if Spage = 0 then Spage = PARTSIZE
        Spage = page - Spage + 1
    else
        Spage = 1
    end if
    Epage = Spage + PARTSIZE - 1
    if Epage > pagecount then Epage = pagecount
    if page > PARTSIZE then
        response.write("<a href=""?page=" & Spage - 1 & "&"&url&""">[<<]</a>")
    end if
    for i = Spage to Epage
        if i = page then
            response.write("[<font color=red><b>" & i & "</b></font>]")
        else
            response.write("[<a href=""?page=" & i & "&"&url&""">" & i & "</a>]")
        end if
    next
    if Epage < pagecount then
        response.write("<a href=""?page=" & Epage + 1 & "&"&url&""">[>>]</a>")
    end if
    if Spage <> 1 then response.write("[<a href=""?page=1&"&url&""">首页</a>]")
    if Epage <> pagecount then response.write("[<a href=""?page=" & pagecount & "&"&url&""">>尾页</a>]")
    response.write("</td></tr></table>")    
end if
rs.close
set rs=nothing
%>